home *** CD-ROM | disk | FTP | other *** search
/ New Masters of Flash / New Masters of Flash.iso / pc / MOVIES / 11.dir / 00043_Text_text03.txt < prev    next >
Text File  |  2000-10-01  |  2KB  |  57 lines
  1. Frame 2: Main Processing
  2.  
  3. i = 1;
  4. while (Number(i)<=3) {
  5.     set ("VX" add i, (eval("VX" add i)+(L-eval("PX" add i))/accel)/slow);
  6.     set ("VY" add i, (eval("VY" add i)+(L-eval("PY" add i))/accel)/slow);
  7.     i = Number(i)+1;
  8. }
  9. VXa = (Number(Number(VX1)+Number(VX2))+Number(VX3))/3;
  10. VYa = (Number(Number(VY1)+Number(VY2))+Number(VY3))/3;
  11. i = 1;
  12. while (Number(i)<=3) {
  13.     set ("VX" add i, eval("VX" add i)-VXa);
  14.     set ("VY" add i, eval("VY" add i)-VYa);
  15.     i = Number(i)+1;
  16. }
  17. i = 1;
  18. while (Number(i)<=3) {
  19.     if (Number(i) == 1) {
  20.         j = 2;
  21.         k = 3;
  22.     } else if (Number(i) == 2) {
  23.         j = 3;
  24.         k = 1;
  25.     } else if (Number(i) == 3) {
  26.         j = 1;
  27.         k = 2;
  28.     }
  29.     set ("PX" add i, eval("PX" add i)+eval("VX" add i));
  30.     set ("PY" add i, eval("PY" add i)+eval("VY" add i));
  31.     i = Number(i)+1;
  32. }
  33. i = 1;
  34. while (Number(i)<=3) {
  35.     setProperty ("/tenkey/key" add i, _xscale, eval("PX" add i)*100/L);
  36.     setProperty ("/tenkey/key" add i, _yscale, PY1*100/L);
  37.     setProperty ("/tenkey/key" add (i+3), _xscale, eval("PX" add i)*100/L);
  38.     setProperty ("/tenkey/key" add (i+3), _yscale, PY2*100/L);
  39.     setProperty ("/tenkey/key" add (i+6), _xscale, eval("PX" add i)*100/L);
  40.     setProperty ("/tenkey/key" add (i+6), _yscale, PY3*100/L);
  41.     i = Number(i)+1;
  42. }
  43. drawX2 = Number(drawX1)+Number(PX1);
  44. drawX3 = Number(drawX2)+Number(PX2);
  45. drawY2 = drawY1-PY1;
  46. drawY3 = drawY2-PY2;
  47. i = 2;
  48. while (Number(i)<=3) {
  49.     setProperty ("/tenkey/key" add i, _x, eval("drawX" add i));
  50.     setProperty ("/tenkey/key" add (i+3), _x, eval("drawX" add i));
  51.     setProperty ("/tenkey/key" add (i+6), _x, eval("drawX" add i));
  52.     setProperty ("/tenkey/key" add (i*3-2), _y, eval("drawY" add i));
  53.     setProperty ("/tenkey/key" add (i*3-1), _y, eval("drawY" add i));
  54.     setProperty ("/tenkey/key" add (i*3), _y, eval("drawY" add i));
  55.     i = Number(i)+1;
  56. }
  57.